home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / telxauto.arc / AUTO.SCR < prev   
Text File  |  1987-03-03  |  7KB  |  195 lines
  1. ;
  2. ;       PROGRAM:        AUTO.SCR
  3. ;
  4. ;                       Telix v2.12  Timed Execution  Script.
  5. ;
  6. ;       PURPOSE:        To automate PCBoard v11.7 operations.
  7. ;
  8. ;       USAGE:          TELIX.EXE /SAUTO.SCR
  9. ;
  10. ;       FUNCTIONS:      AutoDial and Connect to Local TeleNet.
  11. ;                       AutoLink to PCPursuit Target Areacode.
  12. ;                       AutoDial and AutoLogOn to Remote PCBB.
  13. ;                       UpLoad File to PCBB 11.7 using Ymodem.
  14. ;                       Enter a pre-recorded Message to Users.
  15. ;                       DownLoad a File using Ymodem Protocol.
  16. ;                       Enter a pre-recorded Message to SysOp.
  17. ;                       LogOff PCBB Host and Disconnect Modem.
  18. ;
  19. ;       NOTES:          Remove ALL ;Comments before Execution.
  20. ;
  21. ;                       AutoLogOn performance can be improved
  22. ;                       by tuning the code for a specific BBS.
  23. ;
  24. ;
  25. ;       CONFIGURATION:
  26. ;
  27. ;               Enter your Local PCPursuit TeleNet Phone Number;
  28. ;               enter the Area Code of the Target City and your
  29. ;               PCPursuit UserID and PassWord. ( Delete all this
  30. ;               if you wish to make a Direct-Dial Connection ).
  31. ;
  32. ;               Enter the Remote PCBB System Phone Number; your
  33. ;               FirstName, LastName, and PassWord.
  34. ;
  35. ;               Specify the File Name and Description to Upload;
  36. ;               Record the Message to be sent to all PCBB Users.
  37. ;
  38. ;               Specify the File Name to DownLoad and Record the
  39. ;               Message to be sent to the PCBB Sysop.
  40. ;
  41. ;               Make sure the \PATH name of the AUTO.LOG Capture
  42. ;               File is consistent with your Directory structure.
  43. ;
  44. ;               Specify a starting time from 00:00 - 24:00 Hours.
  45. ;
  46. ;
  47. ;
  48. WAITTILL "18:08:10"                     ; Specify Time of Execution
  49. ONLOG   "D:\AUTO.LOG"                   ; Specify d:\path Capture Filespec
  50. REDO:
  51. HANGUP
  52. DELAY   80
  53. FLUSHBUF
  54. ;
  55. TIMEOUT 48 REDO
  56. SEND    "ATDT9565777|"                  ; Specify Local TeleNet Phone Number
  57. WAITFOR "1200"
  58. TIMEOUT 8 DONE
  59. SEND    "~~|"
  60. SEND    "D|"
  61. WAITFOR "="
  62. SEND    "~D1|"
  63. WAITFOR "@"
  64. AREA:
  65. TIMEOUT 8 RSTZ                              ; Specify Target City AreaCode
  66. SEND    "C DIAL415/12,USERID,PASSWORD|"     ; Specify PCP UserID and PassWord
  67. WAITFOR "@"
  68. GOTO    AREA
  69. RSTZ:
  70. TIMEOUT 8 DONE
  71. SEND    "ATZ|"
  72. WAITFOR "OK"
  73. SEND    "~ATX1S11=55|"                  ;( Configures Out-Dial Modem )
  74. WAITFOR "OK"
  75. SEND    "~|@|"
  76. WAITFOR "@"
  77. SEND    "SET? 1:0,4:2,7:8|"             ;( Configures TeleNet for File Xfers )
  78. WAITFOR "@"
  79. SEND    "CONT|~"
  80. DELAY   20
  81. FLUSHBUF
  82. ;
  83. TIMEOUT 48 OUTD
  84. OUTD:
  85. SEND    "ATDT9649039|"                  ; Specify Phone Number of PCBoard
  86. WAITFOR "1200"
  87. ;
  88. TIMEOUT 16 USER
  89. WAITFOR "=no?"
  90. SEND    "Y;Q|"
  91. WAITFOR "?"
  92. USER:
  93. SEND    "FIRSTNAME;LASTNAME;PASSWORD|"   ; Specify PCBoard User information
  94. TIMEOUT 24 NEXT
  95. WAITFOR "?"
  96. NEXT:
  97. TIMEOUT 16 NEXT
  98. SEND    "|"
  99. WAITFOR "Command?"
  100. ;
  101. TIMEOUT 32 POST                         ;( Note this is a PCBB 11.7 procedure )
  102. SEND    "~|"
  103. WAITFOR "Command?"
  104. SEND    "U TELXAUTO.ARC Y|"             ; Specify File Name and Description
  105. WAITFOR "---]"
  106. SEND    "Telix v2.12  Automatic PCBB Script  |"
  107. WAITFOR "Abort."
  108. UPLOAD  YM "C:\LIB\TELXAUTO.ARC"        ; Enter d:\path\filename to UpLoad
  109. ;
  110. POST:
  111. TIMEOUT 16 DOWN
  112. SEND    "~|"
  113. WAITFOR "Command?"
  114. SEND    'E|'
  115. WAITFOR '?'
  116. SEND    '|'
  117. WAITFOR '?'
  118. SEND    'Telix PCBB Script   |'         ; Enter Subject and Message to Post
  119. WAITFOR '?'
  120. SEND    '|'
  121. WAITFOR '1:'
  122. SEND "╔═════════════════════════════════════════════════════════════╗|~"
  123. SEND "║                                                             ║|~"
  124. SEND "║      File TELXAUTO.ARC is a timed-execution Script to:      ║|~"
  125. SEND "║                                                             ║|~"
  126. SEND "║        (1)   AutoDial and Connect to Local TeleNet.         ║|~"
  127. SEND "║        (2)   AutoLink to PCPursuit Target Areacode.         ║|~"
  128. SEND "║        (3)   AutoDial and AutoLogOn to Remote PCBB.         ║|~"
  129. SEND "║        (4)   UpLoad File to PCBB 11.7 using Ymodem.         ║|~"
  130. SEND "║        (5)   Enter a pre-recorded Message to Users.         ║|~"
  131. SEND "║        (6)   DownLoad a File using Ymodem Protocol.         ║|~"
  132. SEND "║        (7)   Enter a pre-recorded Message to SysOp.         ║|~"
  133. SEND "║        (8)   LogOff PCBB Host and Disconnect Modem.         ║|~"
  134. SEND "║                                                             ║|~"
  135. SEND "║     It is capable of unattended operation of this PCBB.     ║|~"
  136. SEND "║                                                             ║|~"
  137. SEND "╚═════════════════════════════════════════════════════════════╝|"
  138. TIMEOUT 80 DOWN
  139. WAITFOR '17:'
  140. SEND    '|'
  141. TIMEOUT 16 DOWN
  142. WAITFOR '?'
  143. SEND    'S|'
  144. ;
  145. DOWN:
  146. TIMEOUT 32 CHAT
  147. SEND    "~|"
  148. WAITFOR "Command?"
  149. SEND    "D ALLFILES.ARC Y|"             ; Specify File Name to DownLoad
  150. WAITFOR "Abort."
  151. DOWNLOAD YM "C:\WRK\ALLFILES.ARC"       ; Enter d:\path\filename to DownLoad
  152. ;
  153. CHAT:
  154. TIMEOUT 16 OVER                         ; Enter text of Message to SysOp
  155. SEND    "~|"
  156. WAITFOR "Command?"
  157. SEND    "C|"
  158. WAITFOR "?"
  159. SEND    "Y|"
  160. WAITFOR "1:"
  161. SEND "╔═════════════════════════════════════════════════════════════╗|~"
  162. SEND "║                                                             ║|~"
  163. SEND "║                                                             ║|~"
  164. SEND "║     Thanks for the File!                                    ║|~"
  165. SEND "║                                                             ║|~"
  166. SEND "║     Your PCBB has been operated by a Telix Script File!     ║|~"
  167. SEND "║                                                             ║|~"
  168. SEND "║     The Script was UpLoaded to you as File TELXAUTO.ARC     ║|~"
  169. SEND "║                                                             ║|~"
  170. SEND "║     Please feel free to customize this Script for your      ║|~"
  171. SEND "║     PCBoard and distribute it to your users.                ║|~"
  172. SEND "║                                                             ║|~"
  173. SEND "║                                          Auto T. Script     ║|~"
  174. SEND "║                                                             ║|~"
  175. SEND "║                                                             ║|~"
  176. SEND "╚═════════════════════════════════════════════════════════════╝|"
  177. TIMEOUT 80 OVER
  178. WAITFOR "17:"
  179. SEND    "|"
  180. TIMEOUT 16 OVER
  181. WAITFOR "?"
  182. SEND    "S|"
  183. ;
  184. OVER:
  185. TIMEOUT 8 DONE
  186. SEND    "~|"
  187. WAITFOR "Command?"
  188. SEND    "G|"
  189. WAITFOR "..."
  190. ;
  191. DONE:
  192. HANGUP
  193. OFFLOG
  194. STOP                    ; Remove ALL ;Comments before Execution.
  195.